home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / robin10.arc / ROBIN-MC.SUB < prev    next >
Encoding:
Text File  |  1987-01-05  |  853 b   |  39 lines
  1. ;                   ROBIN-MC.SUB    "Round Robin Dialer"
  2. ;                                 by
  3. ;                           Samuel Smulowitz
  4. ;                          CENTURY ASSOCIATES
  5. ;                          141-04 71st Avenue
  6. ;                          Flushing, N.Y. 11367
  7. ;
  8. ;
  9. START:
  10. ;
  11. MODEM-COMMAND1:
  12.   LOCATE 22,10
  13.   MESSAGE "Modem Dial Command ('ATDT' or 'ATDP') [     ]                     "
  14.   LOCATE 22,49
  15.   GET S9 4
  16.   SWITCH S9
  17.     CASE "ATDT"
  18.       MLOAD "ROBIN-DT.KEY"
  19.       GOTO MODEM-OK
  20.     ENDCASE
  21.     CASE "ATDP"
  22.       MLOAD "ROBIN-DP.KEY"
  23.       GOTO MODEM-OK
  24.     ENDCASE
  25.     CASE "atdt"
  26.       MLOAD "ROBIN-DT.KEY"
  27.       GOTO MODEM-OK
  28.     ENDCASE
  29.     CASE "atdp"
  30.       MLOAD "ROBIN-DP.KEY"
  31.       GOTO MODEM-OK
  32.     ENDCASE
  33.   ENDSWITCH
  34.   GOTO MODEM-COMMAND1
  35. ;
  36. MODEM-OK:
  37.   EXECUTE "ROBIN.CMD"
  38. ;
  39. EXIT